home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / tidalwav / tidalwav.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-05-08  |  7.4 KB  |  234 lines
  1. VERSION 2.00
  2. Begin Form Tidalwav 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "Tidal Wav"
  6.    ClientHeight    =   4425
  7.    ClientLeft      =   1950
  8.    ClientTop       =   1515
  9.    ClientWidth     =   5925
  10.    FontBold        =   -1  'True
  11.    FontItalic      =   0   'False
  12.    FontName        =   "Futura Md BT"
  13.    FontSize        =   8.25
  14.    FontStrikethru  =   0   'False
  15.    FontUnderline   =   0   'False
  16.    Height          =   4830
  17.    Icon            =   TIDALWAV.FRX:0000
  18.    Left            =   1890
  19.    LinkMode        =   1  'Source
  20.    LinkTopic       =   "Form1"
  21.    MaxButton       =   0   'False
  22.    ScaleHeight     =   4425
  23.    ScaleWidth      =   5925
  24.    Top             =   1170
  25.    Width           =   6045
  26.    Begin DirListBox Dir1 
  27.       Height          =   1875
  28.       Left            =   3060
  29.       TabIndex        =   1
  30.       Top             =   2340
  31.       Width           =   2595
  32.    End
  33.    Begin DriveListBox Drive1 
  34.       Height          =   315
  35.       Left            =   3060
  36.       TabIndex        =   0
  37.       Top             =   1860
  38.       Width           =   2595
  39.    End
  40.    Begin FileListBox File1 
  41.       Height          =   2370
  42.       Left            =   240
  43.       Pattern         =   "*.wav"
  44.       TabIndex        =   2
  45.       Top             =   1860
  46.       Width           =   2655
  47.    End
  48.    Begin Frame Frame1 
  49.       BackColor       =   &H00C0C0C0&
  50.       Caption         =   "Play"
  51.       FontBold        =   -1  'True
  52.       FontItalic      =   0   'False
  53.       FontName        =   "Futura Md BT"
  54.       FontSize        =   13.5
  55.       FontStrikethru  =   0   'False
  56.       FontUnderline   =   0   'False
  57.       Height          =   1695
  58.       Left            =   3060
  59.       TabIndex        =   3
  60.       Top             =   0
  61.       Width           =   2595
  62.       Begin PictureBox Picture3 
  63.          BackColor       =   &H00C0C0C0&
  64.          BorderStyle     =   0  'None
  65.          Height          =   435
  66.          Left            =   1980
  67.          Picture         =   TIDALWAV.FRX:0302
  68.          ScaleHeight     =   435
  69.          ScaleWidth      =   555
  70.          TabIndex        =   9
  71.          Top             =   1020
  72.          Width           =   555
  73.       End
  74.       Begin CommandButton Command1 
  75.          Caption         =   "&Directory"
  76.          FontBold        =   -1  'True
  77.          FontItalic      =   0   'False
  78.          FontName        =   "Futura Md BT"
  79.          FontSize        =   12
  80.          FontStrikethru  =   0   'False
  81.          FontUnderline   =   0   'False
  82.          Height          =   495
  83.          Left            =   120
  84.          TabIndex        =   4
  85.          Top             =   1020
  86.          Width           =   1635
  87.       End
  88.       Begin PictureBox Picture2 
  89.          BackColor       =   &H00C0C0C0&
  90.          BorderStyle     =   0  'None
  91.          Height          =   495
  92.          Left            =   1980
  93.          Picture         =   TIDALWAV.FRX:0604
  94.          ScaleHeight     =   495
  95.          ScaleWidth      =   495
  96.          TabIndex        =   6
  97.          Top             =   360
  98.          Width           =   495
  99.       End
  100.       Begin CommandButton Command2 
  101.          Caption         =   "&Current"
  102.          Default         =   -1  'True
  103.          FontBold        =   -1  'True
  104.          FontItalic      =   0   'False
  105.          FontName        =   "Futura Md BT"
  106.          FontSize        =   12
  107.          FontStrikethru  =   0   'False
  108.          FontUnderline   =   0   'False
  109.          Height          =   495
  110.          Left            =   120
  111.          TabIndex        =   5
  112.          Top             =   360
  113.          Width           =   1635
  114.       End
  115.    End
  116.    Begin Frame Frame2 
  117.       BackColor       =   &H00C0C0C0&
  118.       Caption         =   "Edit"
  119.       FontBold        =   -1  'True
  120.       FontItalic      =   0   'False
  121.       FontName        =   "Futura Md BT"
  122.       FontSize        =   13.5
  123.       FontStrikethru  =   0   'False
  124.       FontUnderline   =   0   'False
  125.       Height          =   1695
  126.       Left            =   240
  127.       TabIndex        =   7
  128.       Top             =   0
  129.       Width           =   2655
  130.       Begin PictureBox Picture4 
  131.          BackColor       =   &H00C0C0C0&
  132.          BorderStyle     =   0  'None
  133.          Height          =   495
  134.          Left            =   1920
  135.          Picture         =   TIDALWAV.FRX:0906
  136.          ScaleHeight     =   495
  137.          ScaleWidth      =   555
  138.          TabIndex        =   12
  139.          Top             =   1020
  140.          Width           =   555
  141.       End
  142.       Begin CommandButton Command3 
  143.          Caption         =   "&Kill"
  144.          FontBold        =   -1  'True
  145.          FontItalic      =   0   'False
  146.          FontName        =   "Futura Md BT"
  147.          FontSize        =   12
  148.          FontStrikethru  =   0   'False
  149.          FontUnderline   =   0   'False
  150.          Height          =   495
  151.          Left            =   120
  152.          TabIndex        =   10
  153.          Top             =   1020
  154.          Width           =   1635
  155.       End
  156.       Begin CommandButton Command4 
  157.          Caption         =   "&Wave"
  158.          FontBold        =   -1  'True
  159.          FontItalic      =   0   'False
  160.          FontName        =   "Futura Md BT"
  161.          FontSize        =   12
  162.          FontStrikethru  =   0   'False
  163.          FontUnderline   =   0   'False
  164.          Height          =   495
  165.          Left            =   120
  166.          TabIndex        =   8
  167.          Top             =   360
  168.          Width           =   1635
  169.       End
  170.       Begin PictureBox Picture1 
  171.          BackColor       =   &H00C0C0C0&
  172.          BorderStyle     =   0  'None
  173.          Height          =   615
  174.          Left            =   1920
  175.          Picture         =   TIDALWAV.FRX:0C08
  176.          ScaleHeight     =   615
  177.          ScaleWidth      =   615
  178.          TabIndex        =   11
  179.          Top             =   300
  180.          Width           =   615
  181.       End
  182.    End
  183. Declare Function sndPlaySound Lib "MMSystem" (ByVal lpsound As String, ByVal flag As Integer) As Integer
  184. Sub Command1_Click ()
  185.     Tidalwav.MousePointer = 11
  186.     Counter = 0
  187.     While Counter < File1.ListCount
  188.         File1.ListIndex = Counter
  189.         Call File1_Click
  190.         X = sndPlaySound(PlayFile$, 2)
  191.         Counter = Counter + 1
  192.     Wend
  193.     Tidalwav.MousePointer = 0
  194. End Sub
  195. Sub Command2_Click ()
  196.     X = sndPlaySound(PlayFile$, 1)
  197. End Sub
  198. Sub Command3_Click ()
  199.     If Not (File1.FileName = "") Then
  200.         Msg$ = "Remove " + RTrim$(PlayFile$) + " from disk ?"
  201.         Reply% = MsgBox(Msg$, 276, "BYE BYE WAV FILE !")
  202.         If Reply% = 6 Then
  203.             If File1.ListIndex < (File1.ListCount - 1) Then
  204.                 Position = File1.ListIndex
  205.             Else
  206.                 Position = File1.ListIndex - 1
  207.             End If
  208.             Kill PlayFile
  209.             File1.Refresh
  210.             File1.ListIndex = Position
  211.         End If
  212.     End If
  213. End Sub
  214. Sub Command4_Click ()
  215.     Run$ = "soundrec.exe " + PlayFile
  216.     X% = Shell(Run$, 1)
  217. End Sub
  218. Sub Dir1_Change ()
  219.     File1.Path = Dir1.Path
  220. End Sub
  221. Sub Drive1_Change ()
  222.     Dir1.Path = Drive1.Drive
  223. End Sub
  224. Sub File1_Click ()
  225.     If Len(File1.Path) = 3 Then
  226.         PlayFile = File1.Path + File1.FileName
  227.     Else
  228.         PlayFile = File1.Path + "\" + File1.FileName
  229.     End If
  230. End Sub
  231. Sub File1_DblClick ()
  232.     Call Command2_Click
  233. End Sub
  234.